home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness:…ecision-Making Strategies / Workplace Effectiveness: Decision-Making Strategies.iso / pc / Files / History.dxr / 00008_PRINT & Write text file.ls < prev    next >
Encoding:
Text File  |  1998-12-16  |  1.1 KB  |  36 lines
  1. global gMasterData, gHistoryPrintList
  2.  
  3. on printButton
  4.   if iAmActivated(gMasterData) then
  5.     getPrintData()
  6.     set vThisField to string(getUserArea(gMasterData)) && "field"
  7.     print(the text of member vThisField)
  8.   else
  9.     alert("Printing is unavailable until an activity is completed.")
  10.   end if
  11. end
  12.  
  13. on getPrintData
  14.   set vThisField to string(getUserArea(gMasterData)) && "field"
  15.   set the text of member vThisField to EMPTY
  16.   set vTempText to EMPTY
  17.   put "---- Decision History ----------" & RETURN & RETURN after vTempText
  18.   put getBigString() & RETURN & RETURN after vTempText
  19.   put RETURN after vTempText
  20.   set the text of member vThisField to vTempText
  21. end
  22.  
  23. on getBigString
  24.   set vText to EMPTY
  25.   put line 6 of field "print1" & RETURN & RETURN after vText
  26.   repeat with X = 1 to 8
  27.     put line X of field "print2" & RETURN after vText
  28.   end repeat
  29.   put RETURN & line 7 of field "print1" & RETURN after vText
  30.   repeat with X = 1 to 5
  31.     put line X of field "print1" & " " after vText
  32.     put the text of member ("decision field" && string(X)) of castLib "Shared" & RETURN after vText
  33.   end repeat
  34.   return vText
  35. end
  36.